home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 87
/
087.d81
/
myb boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
679b
|
23 lines
100 ifathen140
110 dv=peek(186):ifdv<8thendv=8
120 gosub240
130 ifa=0thena=1:load"i-prg c000",dv,1
140 ifa=1thena=2:load"inventory.o",dv,1
150 ifa=2thena=3:load"main help",dv,1
160 ifa=3thena=4:load"rel ease 9100.o",dv,1
170 ifa=4thena=5:load"screen tool 9900",dv,1
180 ifa=5thena=6:load"getprint 9600",dv,1
190 ifa=6thena=7:load"get word 9a00",dv,1
191 ifa=7thena=8:load"menu 1 help",dv,1
192 ifa=8thena=9:load"menu 2 help",dv,1
193 ifa=9thena=10:load"menu 3 help",dv,1
200 print"[144]":print""
210 print "p[207]44,16:p[207]43,1:p[207]16*256,0:load";chr$(34);f$;chr$(34)","dv":"
220 print"run:"
230 poke631,13:poke632,13:poke198,2:end
240 poke53280,0:poke53281,0:iffthenreturn
330 poke214,14:print"[145][155]";
360 f$="myb":return
380 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #87","[211]ubscriptions 1-800-831-2694"
390 data"[195]opyright ([195]) 1991 [211]oftdisk"